home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 4 / Meeting Pearls Vol. IV (1996)(GTI - Schatztruhe)[!].iso / Pearls / edu / Sprachen / VTrainer_v4.2 / HD-Install < prev    next >
Text File  |  1996-10-21  |  5KB  |  163 lines
  1.  
  2. (set progname    "VTrainer")
  3. (set progversion "4.2")
  4. (set progdir     "VTrainer_v4.2")
  5. (set diskname    "")
  6. (set user-level @user-level)
  7. (user 2)
  8.  
  9. (message (cat "\nWillkommen zum Installationsprogramm von\n" progname
  10.               " " progversion " !\n\n"
  11.               "Dieses Programm installiert " progname
  12.               "\nvollständig auf Ihrer Harddisk.\n")
  13. )
  14.  
  15. (user user-level)
  16. (welcome)
  17.  
  18. (set progpath "WORK:")
  19. (set ok 0)
  20.  
  21.  
  22. (set user-level @user-level)
  23. (user 2)
  24.  
  25. (while (not ok)
  26.   (set progpath (askdir
  27.                 (prompt (cat "Wo soll " progname " installiert werden?\n"
  28.                              "(Neues Verzeichnis wird im angegebenen Pfad erstellt.)"))
  29.                 (help @askdir-help)
  30.                 (default progpath)
  31.                 (disk)
  32.                 )
  33.   )
  34.   (If (= (Exists progpath (noreq)) 0)
  35.     (
  36.     (message (cat "\nAngegebener Pfad existiert nicht!\n"
  37.                   progname " konnte daher nicht installiert werden.\n\n"
  38.                   "Bitte wählen Sie ein gültiges Verzeichnis."))
  39.     )
  40.     (
  41.     (If (= (Exists (tackon progpath progdir)) 0)
  42.       (
  43.       (set ok 1)
  44.       )
  45.       (
  46.       (message (cat "\nEin Verzeichnis namens " progdir " existiert \n"
  47.                     "bereits im angegebenen Pfad!\n"
  48.                     progname " konnte daher nicht installiert werden.\n\n"
  49.                     "Bitte wählen Sie ein anderes Verzeichnis oder\n"
  50.                     "löschen Sie das " progdir "-Verzeichnis aus\n"
  51.                     "dem gewählten Pfad."))
  52.       )
  53.     )
  54.     )
  55.   )
  56. )
  57.  
  58. (set progpath  (tackon progpath progdir))
  59. (set device    (getdevice progpath))
  60. (set devicec   (cat device ":C"))
  61. (set devicelib (cat device ":Libs"))
  62.  
  63.  
  64. (copyfiles (prompt "\nKopiere Dateien... bitte warten.")
  65.            (help @copyfiles-help)
  66.            (source "")
  67.            (dest progpath)
  68.            (all)
  69.            (infos)
  70. )
  71.  
  72. (If (< (Exists devicec) 2)
  73.   (makedir devicec
  74.            (prompt "\nCreating C-Directory")
  75.   )
  76. )
  77. (If (= (Exists (tackon devicec "Amigaguide")) 0)
  78.   (copyfiles (prompt "\nKopiere Dateien in C-Verzeichnis...")
  79.              (help @copyfiles-help)
  80.              (source (cat progpath "/C"))
  81.              (dest devicec)
  82.              (all)
  83.   )
  84. )
  85.  
  86. (If (< (Exists devicelib) 2)
  87.   (makedir devicelib
  88.            (prompt "\nCreating Libs-Directory")
  89.   )
  90. )
  91. (If (= (Exists (tackon devicelib "Amigaguide.library")) 0)
  92.   (copyfiles (prompt "\nKopiere Dateien in Libs-Verzeichnis...")
  93.              (help @copyfiles-help)
  94.              (source (cat progpath "/Libs"))
  95.              (dest devicelib)
  96.              (all)
  97.   )
  98. )
  99.  
  100.  
  101. (delete (tackon progpath "HD-Install")
  102.         (prompt "")
  103.         (optional force)
  104. )
  105. (delete (tackon progpath "HD-Install.info")
  106.         (prompt "")
  107.         (optional force)
  108. )
  109. (delete (tackon progpath "Installer")
  110.         (prompt "")
  111.         (optional force) 
  112. )
  113. (delete (cat progpath "/C/AmigaGuide")
  114.         (prompt "")
  115.         (optional force) 
  116. ) 
  117. (delete (cat progpath "/Libs/AmigaGuide.library")
  118.         (prompt "")
  119.         (optional force) 
  120. ) 
  121. (delete (cat progpath "/C")
  122.         (prompt "")
  123.         (optional force) 
  124. ) 
  125. (delete (cat progpath "/Libs")
  126.         (prompt "")
  127.         (optional force) 
  128. ) 
  129.  
  130. (user user-level)
  131. (set language1 "VT_English/")
  132. (set language2 "VT_Deutsch/")
  133. (set language3 "VT_Francais/")
  134. (set language4 "VT_Italiano/")
  135. (set language5 "VT_Espanol/")
  136. (set language6 "VT_Latinum/")
  137.  
  138. (set ok (askbool  (prompt (cat "\n Sollen die Pfade der " progname "-Konfiguration \n"
  139.                                "angepasst werden?"))
  140.                   (default 1)
  141.                   (help (cat"\nIn " progname " kann angegeben werden, aus welchem "
  142.                             "Verzeichnis die Lektionen (Daten) der jeweiligen "
  143.                             "Sprache zu laden sind.\n"
  144.                             "Sie werden nun gefragt, ob diese Pfadeinstellungen an "
  145.                             "die neue Umgebung (neuer Standort) angepasst werden sollen. "
  146.                             "Alle auf der Diskette verfügbaren Lektionen wären dann "
  147.                             "sofort von " progname " aus abrufbar."))
  148.         )
  149. )
  150. (If (= ok 1)
  151.   (textfile (prompt "Schreibe Konfiguration")
  152.             (dest (tackon progpath "VT_Path.prefs"))
  153.             (append (cat "\n"
  154.                          (tackon progpath language1) "\n"
  155.                          (tackon progpath language2) "\n"
  156.                          (tackon progpath language3) "\n"
  157.                          (tackon progpath language4) "\n"
  158.                          (tackon progpath language5) "\n"
  159.                          (tackon progpath language6) "\n"))
  160.   )
  161. ) 
  162.  
  163.